home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 11 / Mac Magazin and MacEasy Magazine CD - Issue 11.iso / Sharewarebibliothek / DFÜ / Via anon.penet.fi v1.00 folder / Via anon.penet.fi v1.00 / Via anon.penet.fi (text) < prev   
Text File  |  1995-06-04  |  2KB  |  53 lines
  1. -- Setting the parameters
  2. set done to false
  3.  
  4. -- the password can contain "ask", "none" or your real password.
  5. -- if is is "ask" the script will prompt you to type it.
  6. set myPassword to "ask"
  7.  
  8. if myPassword is "ask" then
  9.     copy (display dialog ("Your Password:" & return & return) ¬
  10.         default answer "none" ¬
  11.         with icon note) ¬
  12.         to myResult
  13.     if the button returned of myResult is "Cancel" then
  14.         set done to true
  15.     else
  16.         copy the text returned of myResult to myPassword
  17.     end if
  18. end if
  19.  
  20. -- now the anon.penet.fi address
  21. set serviceAddress to "anon@anon.penet.fi" -- Can be changed
  22.  
  23. if not done then
  24.     tell application "Eudora F1.5.1"
  25.         activate
  26.         -- Get the receipient address
  27.         copy field "To:" of message named "" to recipient
  28.         -- Change it to "anon@anon.penet.fi"
  29.         set field "To:" of message named "" to serviceAddress
  30.         -- Get the message body
  31.         copy field "" of message named "" to theMessage
  32.         -- add the passworg and receipient at the beginning of message
  33.         if myPassword is not "none" then
  34.             set field "" of message named "" to ¬
  35.                 "X-Anon-Password: " & myPassword & return ¬
  36.                 & "X-Anon-" & recipient & return & return ¬
  37.                 & theMessage & return
  38.         else
  39.             set field "" of message named "" to ¬
  40.                 "X-Anon-" & recipient & return & return ¬
  41.                 & theMessage & return
  42.         end if
  43.         -- now remove the Eudora'S signature if it's on
  44.         -- it would be ridiculous to put it in an anonymous message
  45.         -- As it doesn't seem possible to automaticaly change that setting
  46.         -- give a warning if it not set to none
  47.         if the signature of message named "" is not none then
  48.             display dialog "May I suggest that you remove the Eudora's" ¬
  49.                 & " signature before you send that message." ¬
  50.                 buttons {"Oups!!!"} default button "Oups!!!" with icon caution
  51.         end if
  52.     end tell
  53. end if